home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / tips & tricks (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  933b  |  31 lines
  1. 5 poke53280,.:poke53281,.:print"[147][159]";
  2. 10 print"[147][159] [198]ancy [208]rinting [210]outines - [212]hong [206]guyen[158]"
  3. 20 m$="[195][207][205][205][207][196][207][210][197] [205][193][199][193][218][201][206][197] & [204][207][193][196][211][212][193][210]"
  4. 30 gosub100:print"[153]";
  5. 35 m$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 40 gosub300:print"[154]";
  7. 60 m$="[208]ress [209] to quit, [210] to re-run program.":gosub200
  8. 65 geta$:ifa$="r"ora$="[210]"thenrun
  9. 70 ifa$<>"q"anda$<>"[209]"then65
  10. 80 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  11. 90 print"[147]";:ifer<>63thenend
  12. 95 load"hello connect",8
  13. 100 rem ** letters drop from the sky
  14. 110 td=10:rem screen line to print on
  15. 120 l=len(m$):ta=(40-l)/2-1:forj=1tol:m1$=mid$(m$,j,1):print""
  16. 130 ifm1$<>" "thenfork=1totd-2:printtab(ta+j)m1$"[145]":printtab(ta+j)" ":next
  17. 140 printtab(ta+j)m1$:next
  18. 150 return
  19. 160 :
  20. 200 rem ** letters zoom in from left
  21. 210 l=len(m$):ta=(40-l)/2-1:forj=lto1step-1:m1$=" "+mid$(m$,j,1)
  22. 220 ifm1$<>"  "thenfork=1toj:printtab(ta+k-1)m1$"[145]":next
  23. 230 next:print
  24. 240 return
  25. 250 :
  26. 300 rem ** letters explode from center
  27. 310 iflen(m$)/2<>int(len(m$)/2)thenm$=m$+" "
  28. 320 l=len(m$):ta=(40-l)/2:tb=l/2:tc=ta+tb:forj=1totb:tc=tc-1
  29. 330 printtab(tc)left$(m$,j)tab(tb)right$(m$,j)"[145]":fork=1to20:next:next
  30. 340 return
  31.